home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2001 January / january_2001.iso / intercd / root / ^4Developers / VB / visbasdb / VBDB / VBDB Code / VB6 Code / Class 3 / Exercise3.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-08-28  |  3.3 KB  |  109 lines
  1. VERSION 5.00
  2. Begin VB.Form frmCustomers 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Customers Database"
  5.    ClientHeight    =   3195
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   5400
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   3195
  13.    ScaleWidth      =   5400
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin VB.Data datCustomers 
  16.       Caption         =   "Customers"
  17.       Connect         =   "Access"
  18.       DatabaseName    =   "c:\VBDB\Working\Nwind.mdb"
  19.       DefaultCursorType=   0  'DefaultCursor
  20.       DefaultType     =   2  'UseODBC
  21.       Exclusive       =   0   'False
  22.       Height          =   300
  23.       Left            =   1200
  24.       Options         =   0
  25.       ReadOnly        =   -1  'True
  26.       RecordsetType   =   1  'Dynaset
  27.       RecordSource    =   "Customers"
  28.       Top             =   2640
  29.       Width           =   3060
  30.    End
  31.    Begin VB.TextBox txtContactTitle 
  32.       DataField       =   "ContactTitle"
  33.       DataSource      =   "datCustomers"
  34.       Height          =   495
  35.       Left            =   1440
  36.       Locked          =   -1  'True
  37.       TabIndex        =   5
  38.       Top             =   1920
  39.       Width           =   3615
  40.    End
  41.    Begin VB.TextBox txtContactName 
  42.       DataField       =   "ContactName"
  43.       DataSource      =   "datCustomers"
  44.       Height          =   495
  45.       Left            =   1440
  46.       Locked          =   -1  'True
  47.       TabIndex        =   4
  48.       Top             =   1320
  49.       Width           =   3615
  50.    End
  51.    Begin VB.TextBox txtCompanyName 
  52.       DataField       =   "CompanyName"
  53.       DataSource      =   "datCustomers"
  54.       Height          =   495
  55.       Left            =   1440
  56.       Locked          =   -1  'True
  57.       TabIndex        =   3
  58.       Top             =   720
  59.       Width           =   3615
  60.    End
  61.    Begin VB.TextBox txtCustomerID 
  62.       DataField       =   "CustomerID"
  63.       DataSource      =   "datCustomers"
  64.       Height          =   495
  65.       Left            =   1440
  66.       Locked          =   -1  'True
  67.       TabIndex        =   1
  68.       Top             =   120
  69.       Width           =   3615
  70.    End
  71.    Begin VB.Label Label4 
  72.       Caption         =   "Contact Title"
  73.       Height          =   495
  74.       Left            =   120
  75.       TabIndex        =   7
  76.       Top             =   2040
  77.       Width           =   1215
  78.    End
  79.    Begin VB.Label Label3 
  80.       Caption         =   "Contact Name"
  81.       Height          =   495
  82.       Left            =   120
  83.       TabIndex        =   6
  84.       Top             =   1440
  85.       Width           =   1215
  86.    End
  87.    Begin VB.Label Label2 
  88.       Caption         =   "Company Name"
  89.       Height          =   495
  90.       Left            =   120
  91.       TabIndex        =   2
  92.       Top             =   840
  93.       Width           =   1215
  94.    End
  95.    Begin VB.Label Label1 
  96.       Caption         =   "Customer ID"
  97.       Height          =   495
  98.       Left            =   120
  99.       TabIndex        =   0
  100.       Top             =   240
  101.       Width           =   1215
  102.    End
  103. Attribute VB_Name = "frmCustomers"
  104. Attribute VB_GlobalNameSpace = False
  105. Attribute VB_Creatable = False
  106. Attribute VB_PredeclaredId = True
  107. Attribute VB_Exposed = False
  108. Option Explicit
  109.